0 REM << CD26-2 >>
1 REM  COMMODARE #22-2 :
2 REM         SIMPLE COMPARISON
3 REM  SOLUTIONS BY
4 REM    NORM GREEN (LINES 100-130)
5 REM    FRANK SMITH (LINES 200-250)
6 REM  & DENNIS FURMAN (LINES 300-350)
7 REM
10 DATA 1,2,3,4,5,6,7,8,9,10
20 DATA 10,9,8,7,6,5,4,3,2,2
30 FOR N=1 TO 10 : READ A(N) : NEXT
40 FOR N=1 TO 10 : READ B(N) : NEXT
50 CT=CT+1
60 ON CT GOSUB 100,200,300
70 IF CT<3 THEN 50
80 END
99 REM=================================
100 FOR N=1 TO 10:XA=XA+A(N):YA=YA*A(N)
110 XB=XB+B(N) : YB=YB*B(N) : NEXT
120 IF XA=XB AND YA=YB THEN PRINT : PRINT"MATCH" : RETURN
130 PRINT"NOT A MATCH" : RETURN
199 REM================================
200 FOR C=1 TO 10:FOR D=C TO 10:IFA(C)<>B(D) THEN 220
210 H=B(C):B(C)=B(D):B(D)=H:GOTO 240
220 NEXT D
230 PRINT"THE TWO SETS ARE NOT THE SAME":RETURN
240 NEXT C
250 PRINT"THE TWO SETS CONTAIN THE SAME NUMBERS":RETURN
299 REM================================
300 FOR I=1 TO 10:FORJ=10 TO I+1 STEP-1
310 IF A(J)>A(J-1)THENC=A(J-1):A(J-1)=A(J):A(J)=C
320 IF B(J)>B(J-1)THEND=B(J-1):B(J-1)=B(J):B(J)=D
330 NEXT J
340 IFA(I)<>B(I)THEN PRINT"NOT EQUAL":RETURN
350 NEXT I : PRINT"EQUAL":RETURN